program numberthree;

{$APPTYPE CONSOLE}

uses
  SysUtils;


  var
fin:textFile;
 n, m, i : integer;
tx, ty, S1, S2:real;
x : array of integer;
y : array of integer;
x1 : array of integer;
y1 : array of integer;

begin
  assignFile (fin, 'input.txt');
  reset (fin);
  readln (fin, n);
  setlength (x, n+1);
  setlength (y, n+1);
  for i := 1 to n+1 do
  begin
    read (fin, x[i]);
    readln(fin, y[i]);
  end;
  readln (fin, m);
  setlength (x1, m+1);
  setlength (y1, m+1);
  for i := 1 to m+1 do
  begin
    read (fin, x1[i]);
    readln(fin, y1[i]);
  end;
  tx:= 0;
  ty:=0;
    x[0] := x[n+1];
    y[0] := y[n+1];
    x1[0] := x1[n+1];
    y1[0] := y1[n+1];
    x[n+1] := x[1];
    y[n+1]:= x[1];
    x1[n+1] := x1[1];
    y1[n+1]:= y1[1];
    S1 := 0;
    for i:= 1 to n-1 do
     tx:= tx+x[i];
     ty:=ty+y[i];

     tx:=tx/n;
     ty:=ty/n;
  for i:= 1 to m-1 do
    S1 := S1 + x1[i] * y1[i+1] - x1[i+1] * y1[i];
    S2 := x[0] * y[1] - x[1] * x[0];
    x[n+1] := x[0];
    y[n+1] := x[0];
  for i := 1 to m-1 do
    S2 := S2 + tx * ty - x[i+1] * y[i];
  if (S1 = S2) or (S1 = -S2) then
     writeln('The Table is not falling');
  if (S1 <> S2) and (S1 <> -S2) then
   writeln ('The Table is falling');
    closeFile(fin);
  readln;
end.
